home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / GTQLib1.2.as Folder / Sample Scripts / Alias>Desktop□ < prev    next >
Encoding:
Text File  |  1994-05-04  |  358 b   |  14 lines  |  [TEXT/ToyS]
  1. on open f
  2.     set n to f as string
  3.     set oldDelims to AppleScript's text item delimiters
  4.     set AppleScript's text item delimiters to {":"}
  5.     set n to last text item of n
  6.     set AppleScript's text item delimiters to oldDelims
  7.     set f to (make alias f named n at path to desktop)
  8.     f
  9. end open
  10.  
  11. on run
  12.     choose file with prompt "Choose file to alias:"
  13.     open result
  14. end run